RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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**F [LE**1D**CARAGE 

CCCCCCCC AAAAAA RRRRRRRR AAAAAA GGGGGGGG EEEEEEEEEE 3 

cccccccc¢ AAAAAA RRRRRRRR AAAAAA GGGGGGGG EEEEEEEEEE 3 
cc AA AA RR RR AA AA GG EE F 
cc AA AA RR RR AA AA GG EE 3 
cc AA AA RR RR AA AA GG EE 3 
cc AA AA RR RR AA AA GG EE 3 
cc AA RRRRRRRR AA AA GG EEEEEEEE F 
cc AA AA RRRRRRRR AA AA GG EEEEEEEE 3 
cc AAAAAAAAAA RR RR AAAAAAAAAA GG GGGGGG EE 3 
cc AA AAA RR RR AAAAAAAAAA GG GGGGGG EE 3 
cc AA AA RR RR AA AA GG GG EE eens 3 
cc AA AA RR RR AA AA GG GG EE ben 3 

CCCCCCCC AA AA RR RR AA AA GGGGGG EEEEEEEEEE wwe $ 

CCCCCCCC AA AA RR RR AA AA GGGGGG EEEEEEEEEE cone ; 
LL IIIIII SSSSSSSS 3 
LL II1111 SSSSSSSS 3 
LL II SS F 
LL II ss 3 
LL II SS 3 
LL II SS 5 
LL II SSSSSS 3 
LL II SSSSSS 3 
LL I] SS : 
LL II SS 3 
LL II SS 3 
LL II ss 3 
LLLLLLLLLL III111 SSSSSSSS 3 
LLLLLLLLLL IIIIII SSSSSSSS : 


CARAGE 18500-1984 99:32:93 AX-11 Oi fase te V4.0-74 Page 1 


-Sep-1 RUNOFF. CARAGE.BLI; (1) 
H 1 1 MODULE CARAGE ( IDENT = ‘v04-000' : 
3 ¢ P § ZBLISS320£, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE ; 
he 993 aes NONEXTERNAL = LONG-RELATIVES 
io 2 005 1 BEGIN : 
: 4 007 : i eeeeeeeeeeeeeReeeeeeeeeeeeneeeeeeeereeererertereereneeeeeneeeeaeeeeeeneeeeee : 
: '® ® Ps 
; 9 $08 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
: 10 010 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. : ; 
3 1 Batt ! ALL RIGHTS RESERVED. * $ 
3 ' . 3 
FY ig $018 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
; 14 Bote 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 3 
H 15 015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 3 
3 16 8519 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * $ 
$ 17 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
3 18 8318 } ° TRANSFERRED. * 3 
: ! * 3 
3 st 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * é 
H 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
; $6 OOss : jp CORPORATION. * $ 
3 ‘w ® D4 
; 7 bose 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * é 
3 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * P} 
> & poss 1 Ie * 3 
> ae 0027 1 !* * ; 
: 28 it 3 : , HeeceecneseseeereussesesseeacoeneserensnenedeereoToereseneneseenasenaeseense $ 
3 9 00 ! 3 
3 $9 $080 1 3 
. 0031 1 !+4+ 3 
3 $$ Ones ! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS ; 
; 3 0034 1 | ABSTRACT: : 
3 5 0035 1! 3 
3 36 0036 1! Processes the .PAGE, .SKIP, .BLANK, .TEST PAGE, 3 
3 $i Boss : BREAK, and .SPACING commands. : 
: 39 0039 1 ' ENVIRONMENT: Transportable ; 
; 60 0040 1! 3 
: 41 0041 1 ! AUTHOR: R.W.Friday CREATION DATE: May, 1978 : 
; 42 0042 1 : 


eee Ge Ge Oe Ge Ge Ge SH Ge Ge SH Se Se ee 
PUPP SII £ 
ONOUS WN —ODOONOu 
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Revision History 12-3 08- 1382 $3:38:98 RUNOFF .SRCJCARAGE.BLI; - (2 

43 1 ZSBITL ‘Revision History’ 

rt} ! MODIFIED BY: 
046 ii 006 KFA00006 Ken Alden 05-Aug-1983 
04 ! } Added handling for .PAGE NOW (plus). 

rk 1 005 REROOOOS Ron Randall 17-Mar-1983 
0050 1! For wth 
itd } In Ch_skipJ, added code to test for negative skip in topnote. 
boas 1 / 004 KFA00004 Ken Alden 07-Mar-1983 
0054 1! elose) edit of all modules. Updated module names, idents, 
9035 ; copyright dates. Changed require files to BLISS library. 
0057 1 


jofololololo) 
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Module Level Declarations 


XSBTTL "Module Level Declarations’ 
i INCLUDE FILES: 


i 
BRARY 'NXPORT:XPORT'; 
UIRE *REQ:RNODEF'; 


DSRPLUS XTHEN 
ARY ‘REQ:DPLLIB":; 
A 


Q 
F 
BR 
LS 
r RY *REQ:DSRLIB'; 


Ll 
RE 
%1 
be 
i 
i 


EXTERNAL REFERENCES: 


EXTERNAL 
FNCT : FNCT_DEFINITION, 
IRA FIXEB_STRING 
MRA REF FIXED STRING, 
NUMPRM : NUMPRM_DEFINE 
PHAN : PHAN DEFINITION, 
SCA SCA_DEFINITION; 
Z1F DSRPLUS X%THEN 
EXTERNAL 
TOPNOT : TN_DEFINITION; 


EXTERNAL LITERAL 
RNF IIT; 


EXTERNAL LITERAL 
RNFIFT, 


RNF INM, 
RNFMNL ; 


EXTERNAL ROUTINE 
erma, 


BERS, 

ZIF DSRPLUS XTHEN 
newpag, 

FI 
tpffit, 
tpfsiz; 


ySSeo-198e 25:55:38 


! XPORT Library 
! RUNOFF variant definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 


AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJCARAGE .BLI; 


DPV PVPS BS BS BS BS BE EEE AAW NNW AIP NPP NININY 2 St SS 
cece 


ee a a ee a a ae ae ea a ee ee ee ee ee ee a a dd od ed od 
oa an 


a 
: 


2 
2 


POPUNO 


19 09 C9 09 C9 C9 CD CD. OD 09 SI INN NNN SSSI DPA PAA A III BB BB EE EAA 


0 
0 
0 
0 
0 
0 
0 
0 
Q 
0 


ooo 
Wm 
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GLOBAL ROUTINE carage (handler_code) : NOVALUE = 
'¢ 


3 FUNCTIONAL DESCRIPTION: 

See the ABSTRACT, above. 
{FORMAL PARAMETERS: 

handler_code = Indicates which command is to be processed. 
IMPLICIT INPUTS: 

numprm - Expected to contain a number, as processed by GETNUM. 
IMPLICIT OUTPUTS: None 
i ROUTINE VALUE: 


COMPLETION CODES: None 
is SIDE EFFECTS: None 
BEGIN 
'§ commands take a numb 
IF CHANDLER. CODE NEQ H_BREAK) AND 
DLER_CODE NEQ H 


HAN 
ZIF DSRPLUS BTHEN rm 
= (.HANDLER_CODE NEQ H_PAGE_NOW) 
THEN 


IF NOT .NUM_RESULT 
} ilerere command if number was bad. 


RETURN; 
aed” ts »HANDLER_CODE OF 


CH_BLANK, H_SKIP]) : 
BEGIN 


IF _ _.NUM_LENGTH EQL 0 
THEN 


NUM_VALUE = 1; ! Default if no parameter. 


IF rt CODE ee & SKIP 

! Commands .SKIP and .BCANK mean the same 
i chien, except int -SKIP means *’.SPACING 
i blank t nes, whereas .BLANK means exactly 
i as many blank Lines as specified. 


NUM_VALUE = .NUM_VALUE * .SCA_SPACING; 


Module Level Declarations 15-ep-1964 $3:33;93 AUNOF Fe $R ¢ chRate: git 
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CARA 14.32 -1984 23:55: AX-11 Bliss-32 V4.0-74 
Gor -680 Module Level Declarations 127808- 1382 93:08:88 RUNOFF ..SRCJCARAGE.BLI; soa (3 
IF .NUM_VALUE LSS 0 
THEN 
BEGIN 
’ ZIF DSRPLUS THEN 
. ; -SKIP with negative value is illegal in a topnote. 
U if .TN_COLLECTING 
U THEN 
U BEGIN 
U ERMA (RNFIIT, FALSE); 
U RETURN; 
U END; 


RFI 


-SKIP with negative value is illegal in a footnote. 
F_ .FNCT_COLLECTING 
HEN 
BEGIN 
ERMA (RNFIFT, FALSE); 
RETURN; 
4 as (.NUM_VALUE) GEQ .PHAN_LLINES 
: Yeer said something Like .SKIP -9999. 
ERMA (RNFINM, FALSE); 
RETURN; 


! It's a valid .SKIP/.BLANK with a negative count. 
GCPOS (.NUM_ VALUE) : 


SINDEN a a i ed nd ed od od od 


— 
WN LOOONO MPN HOSS IEA RM ODOR NEAR ODO SR I DO ORONO Ose 


! Generate code for the conditional skip. 
skip (..NUM_VALUE); 


. 
a 
o 
. 
° 
. 
o 
a 
o 
~ 
o 
. 
* 
. 
2 
. 
° 
. 
. 
. 
ao 
- 
. 
e 
. 
~ 
. 
e 
. 
. 
. 
. 
. 
e 
. 
. 
. 
2: 
. 
a 
. 
. 
. 
: 
. 
oe 
° 
. 
. 
oe 
° 
a 
- 
° 
. 
a 
. 
om 
. 
o 
° 
* 
. 
e 
2 
. 
~ 
. 
. 
o 
” 
eo 
. 
e 
. 
ca 


CH_BREAK) : 
! Everything associated with .BREAK is contained in 
! the tables, that are interpreted by DOCM. 


CH_PAGE) : 
! Generate code for the conditional page. 
GCPAGE (); 
Z1F saa ot ae 
= se cnrow ~ page NOW. 


RIP PIPIPIPIPIPINIPIPIPIPIPINI HNN BEEP NINE FPS PUNE SELL PPP PPP PPP PPP PPI 


ccccc 


IF .fncet_collecting ! Don't start a new page if 
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! 


THEN footnotes are being collected, 
RETURN; ' since footnotes all belong on 
! one page. 
phan_top_page = false; ' Start another one, even 
newpag (J; ' if we're at the beginning of a 
: ! new page. 


CH_SPACING) : 
BEGIN 


IF .NUM_LENGTH EQL 0 
! No number provided. 
THEN 


BEGIN 
ERMA (RNFMNL, FALSE); 
RETURN; 

IF (.NUM_VALUE LEQ 0) OR 
(.NUM-VALUE GTR 5) 

! Number not between 0 and 5. 
BEGIN 
ERMA (RNFINM, FALSE); 
RETURN; 

SCA_SPACING = .NUM_VALUE; 

END; 

CH_TEST_PAGE) : 
BEGIN 
IF .NUM_LENGTH EQL 0 


fe number provided. 


BEGIN 
ERMA (RNFMNL, FALSE); 
RETURN; 


IF -NUM_VALUE LEQ 0 
! Negative number not allowed. 


BEGIN 
ERMA (RNFINM, FALSE); 
RETURN; 


! Add count of pending footnote lines, if any, 
! to the given test-page value. 

! Generate code for a test page. 

gies (.NUM_VALUE + TPFSIZ (TPFFIT ())); 


13 
CARA 18-52 -1984 755: AX-11 Bliss-32 V4.0-74 Page 7 
$00 850 Module Level Declarations 127808 - 1382 93:08:88 RUNOFF. RCICARAGE_BLI: . (4) 
: 1 4 TES; : 
; 38 B¢09 ; 3 
; 410 END; 'End of CARAGE : 
TITLE CARAGE : 
-IDENT \V04-000\ ; 
.EXTRN FNCT, IRA, MRA, NUMPRM ; 
-EXTRN PHAN, SCA, RNFIFT : 
.EXTRN RNFINM, RNFMNL, ERMA ; 
.EXTRN GCPAGE, GCPOS, GCSKIP ; 
EXTRN GTPC, fPFFIT, TPFSIZ : 
.PSECT $CODE$,NOWRT,2 ; 
000¢ 00000 .ENTRY CARAGE, Save R2,R3 : 0237 ; 
53 000000006 _ EF i 9008 MOVAB NUMPRM+4, R : : 
36 On 8S BY bo000 ROVE = HANDLER_CODE, R2 Paes 
g 13 0001 BEQL , : ; 
000000A7_—s BF D1 0001 CMPL 2, #167 + 0264 : 
0 \3 001 BEQL : : 
01 FC OAS E 0018 BLBS § NUMPRM, 1$ + 0271 3 
4 O0001F RET : : 
OA 52 01 000 9 1$ CMPL = R2, «#10 : 0279 3 
9 13 000 BEQL : ; 
000000BC —s BF D1 90 5 CMPL = R2, #188 : : 
ig 0002C BNEQ 3 3 
08 A3 D5 000 : 2$ TSTL § NUMPRM+12 : 0282 3 
if 00 BNEG : : 
63 1 DO 00033 MOVL #1, NUMPRM+4 > 0284 ; 
000000BC = s BF 3¢ D| 99 é 3$ CMPL R2, #188 : 0286 : 
63 000000006 FF C4 0003F MULL2 @SCA+124, NUMPRM+4 s 0292 ; 
$3 BS 0046 4$: Ist NUMPRM+4 > 0294 ; 
0A 000000006 EF ES OO04A BLBC = FNCT#20, 5$ : 0313 : 
E D4 00051 CLRL = = (SP) : 0316 : 
000000006 gf Dp 0095 PUSHL WRNE IFT ; : 
50 63 00 0058 5$ MOVL § NUMPRM+4, RO ; 0320 : 
18 0005 BGEQ $ : : 
50 6 cE 6 MNEGL RO, RO : 3 
00000000 FF : 33 CMPL RO. @PHAN+4 ; : 
66 18 0006A BGEG ; : 
000000006 EF oT EB ef CALLS Ate GCPOS bene 
be § RET ' : 0296 : 
65 DD £6 7$ PUSHL NUMPRI®4 > 0334 : 
000000006 EF 1 FB 7 CALLS #1, GCSKIP : : 
0B OF 80080 8S CPL RQ, tt + §3t$ : 
} i} BEQL 3 é 
000000A7_—s BF ; CMPL R2, #167 + 0342 : 
2 c BNEQ : : 
000000006 _ EF FB 5 CALLS #0, GCPAGE + 0344 : 
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v04-0 Module Level Declarations 122808-138e #3:38:48 RUNOFF .SRCJCARAGE. BLi: _ 
04 95 RET 5 
000000BD =«s«a&F 3¢ p 43 9$: rk #189 : 
08 A3 D OF TSTL NUMPRM#12 : 
OA 1 Ae BNEQ 11$ 3 
—E 04 A4 108: CLRL -(SP) : 
000000006 + 0 s a + shila 3 
50 6 o9 AE 11$: MOVL NUBPRM+4 RO : 
1f 61 oi BLEQ 1 3 
05 50 Di B CMPL RO, #5 3 
1A 14 8 BGTR 1 : 
00000000G_ FF 63 Be 7 aay NUMPRM+4, @SCA+124 F 
000000cB SF 52 D1 Boc0 12$:  CMPL 2, #203 ; 
4 1 6 C BNEQ 16$ ; 
08 A3 OD C9 TSTL NUMPRM+12 : 
D6 «13 QO0CC BEQL 1 : 
63 0D it TSTL ers : 
10 14 0000 BGTR 15$ 3 
7E 04 00002 138: CLAL -(SP) 3 
00000000G 8F DD 000D4 PUSHL #RNF INM : 
00000000G_ EF 02 FB QOODA 14$: CALLS #2, ERMA 3 
04 000E1 RET ; 0397 
00000000G_ EF 98 FB QOOE2 15$: CALLS 4&0, TPFFIT 3; 0405 
DD O00E9 PUSHL RO 5 
00000000G_ EF 01 FB it CALLS #1, Make f, 3 
00 B340 9F OOOF PUSHAB @NUMPRM+4(RO] : 
00000000G_ EF 01 FB QOOF6 CALLS #1, GTPC 3 
04 OOOFD 16$: RET ; 0410 
; Routine Size: 254 bytes, Routine Base: $CODE$ + 0000 
> 6284 0411 #1 
3; «6285 bei§ 1 END ‘End of module 
: 286 0413 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 254 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
: ecceececn Symbols eccececece Pages Processing 
: File Total Loaded Percent Mapped Time 


—————$——— sss te 
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-Sep- - - C 
voors Module Level Declarations 13-Fen-1984 #3: 3a; $3 RUNOFF BR SchRaMe /oL BLI 14 a “) v0 
| eee ETUASB RUNGFE eRc ODER TAL 3251 1328 28 ky 00:00:2 
H COMMAND QUALIFIERS 
H BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CARAGE/OBJ=OBJ$:CARAGE MSRCS$:CARAGE/UPDATE=(ENH$: CARAGE) 


; Size: 254 code + 0 data bytes 
00:06.0 


3; Elapsed Time: a oe 
3 Lines/CPU Min: 412 

s Sec Ak i 13617 

; mn i Used: 73 pages 

3 oat ation Complete 
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